BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/E/Exegesis Tools.cpt/Exegesis Tools/background_10408.txt

Text File | 1990-12-13 | 5KB | 213 lines

-- background: 10408 from stack: in
-- bmap block id: 10737
-- flags: 4000
-- background id: 0
-- name: Ques Back
----- HyperTalk script -----
on opencard
  --this comes from Stack Developer by Steve Drazga
  put (the number of this card - the number of first card of this background+1) into field "Page Num"
end opencard


-- part 11 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=17 top=44 right=296 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Text


-- part 14 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=267 top=45 right=297 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Questions raised


-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=216 top=292 right=317 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to prev card of this bkgnd
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=270 top=292 right=317 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card of this bkgnd
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=12 top=291 right=320 bottom=44
-- title width / last selected line: 0
-- icon id / first selected line: 12042 / 12042
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=464 top=292 right=320 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to card id 2974
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=478 top=26 right=47 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: How to…
----- HyperTalk script -----
on mouseUp
  push card
  go to card id 8834
end mouseUp




-- part 22 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=15 top=26 right=43 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: page num


-- part 23 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=426 top=288 right=320 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter
----- HyperTalk script -----
on mouseUp
  answer "Print “Questions” Report or Card?" with "Cancel" or "Report" or "Card"
  if it is "Cancel" then
    exit mouseUp
  end if
  if it is "Report" then
    domenu "Print Report..."
    exit mouseUp
  end if
  if it is "Card" then
    open printing with dialog
    if it is empty then
      exit mouseUp
    else
      print this card
      close printing
    end if
  end if
end mouseUp


-- part 24 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=44 top=287 right=321 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 22076 / 22076
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  answer "Delete this card?" with "Cancel" or "Yes"
  if it is "cancel" then exit mouseUp
  set the cursor to 4
  set lockscreen to true
  domenu "delete Card"
  go prev
  set lockScreen to false
end mouseUp